( sig pk -- result )
OP_OVER extractr ( sig pk r ) OP_HASH160 ${hashr} OP_EQUALVERIFY OP_CHECKSIG